summary_data <- gapminder %>%
  group_by(continent, year) %>%
  summarise(
    avg_lifeExp = mean(lifeExp),
    avg_gdpPercap = mean(gdpPercap),
    .groups = "drop"
  )